      SUBROUTINE GETIME(TOTAL,DELTA)
C*
C*  GETIME - EXTRACT TOTAL CPU TIME (SINCE CALL TO SETIME)
C*           AND DELTA CPU TIME(SINCE LAST CALL TO GETIME)
C*
      SAVE OLD
C
      STATUS = LIB$STAT_TIMER(2,ITIME,)
      TOTAL  = 0.01*FLOAT(ITIME)
      DELTA  = TOTAL-OLD
      OLD    = TOTAL
      RETURN
      END
C
C---END GETIME
C
